(dired-create-files): Use `mapc' rather than `mapcar'.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index f904238c8fa9833de38c196c2234d2697cfb6321..e0749f375aea382862ee80e8b3f7b536bb99cc65 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1330,7 +1330,7 @@ Special value `always' suppresses confirmation."
        skipped (success-count 0) (total (length fn-list)))
     (let (to overwrite-query
             overwrite-backup-query)    ; for dired-handle-overwrite
-      (mapcar
+      (mapc
        (function
        (lambda (from)
          (setq to (funcall name-constructor from))